home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group98c.txt / 000102_icon-group-sender _Mon Dec 7 14:40:25 1998.msg < prev    next >
Internet Message Format  |  2000-09-20  |  2KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) id OAA29765
  4.     for icon-group-addresses; Mon, 7 Dec 1998 14:40:16 -0700 (MST)
  5. Message-Id: <199812072140.OAA29765@baskerville.CS.Arizona.EDU>
  6. Date: Mon, 07 Dec 1998 10:36:01 -0600
  7. From: MJE <evans@gte.net>
  8. To: icon-group@optima.CS.Arizona.EDU
  9. Subject: Re: Past Keyword / Coexpr Help
  10. Errors-To: icon-group-errors@optima.CS.Arizona.EDU
  11. Status: RO
  12.  
  13. I like Steve Wampler's answer.  Since "find" is a generator, presumably
  14. this function will also behave as a generator.  I would still lobby for
  15. the "past" keyword, but no complaints.
  16.  
  17. Mark
  18.  
  19.  
  20. Steve Wampler wrote:
  21. > 
  22. > You can write your own string analysis function to implement past().
  23. > 
  24. > As I understand what you want, the following would work:
  25. > 
  26. > procedure past(s)
  27. >    suspend (tab(find(s)),match(s))
  28. > end
  29. > 
  30. > I'm not convinced you really want a co-expression in your 2nd question, but
  31. > need to think about that some.  No doubt someone else will have a good
  32. > solution soon!
  33. > 
  34. > --
  35. > Steve Wampler - swampler@gemini.edu [Gemini 8m Telescopes Project (under AURA)]
  36. > The gods that smiled at your birth are now laughing openly. (Fortune Cookie)
  37.  
  38. Nevin Liber wrote:
  39. > 
  40. > > The scanning mechanism I want would perhaps be called "past", as in
  41. > >
  42. > >       numberchars := (&digits ++ 'e' ++ 'E' ++ '+' ++ '-' ++ '.')
  43. > >       string ?
  44. > >       {
  45. > >          tab(past("substring"))
  46. > >          result := real(tab(many(numberchars)))
  47. > >       }
  48. > 
  49. > It has find(), and it is fairly trivial to write past() using find.  Here
  50. > you go:
  51. > 
  52. >         procedure past(s1, s2, i1, i2)
  53. > 
  54. >                 suspend find(s1, s2, i1, i2) + *s1
  55. > 
  56. >         end
  57. > __
  58. >  Nevin ":-)" Liber  <mailto:nliber@aivia.com>  (312) 855-1000 x199
  59. > 
  60. > National Systems Corporation
  61. > 414 North Orleans Street, Suite 501
  62. > Chicago, IL 60610-4490
  63. > fax: (312) 222-1605
  64. > <http://www.aivia.com/>
  65.  
  66.